home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Triad.dxr / Internal_2_waste cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.2 KB  |  78 lines
  1. property spriteNum, motion, undercard, location
  2. global waste, getlist, equal, currentsel, godlist, foundation, points, tableau
  3.  
  4. on beginSprite me
  5.   waste = new(script("card pile"))
  6.   undercard = sprite(11)
  7.   location = sprite(spriteNum).loc
  8. end
  9.  
  10. on mouseDown me
  11.   if waste.getcardcount() > 0 then
  12.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  13.     sprite(spriteNum).locZ = spriteNum + 1000
  14.     getlist = waste
  15.     if waste.getcardcount() > 1 then
  16.       undercard.member = member(waste.cards[waste.getcardcount() - 1].membername, "playing cards")
  17.     else
  18.       if waste.getcardcount() = 1 then
  19.         undercard.member = member("empty", "playing cards")
  20.       end if
  21.     end if
  22.     motion = timeout(string(spriteNum) && "motion").new(5, #moving, me)
  23.   end if
  24. end
  25.  
  26. on moving me
  27.   if the mouseDown then
  28.     sprite(spriteNum).loc = the mouseLoc
  29.   else
  30.     if the mouseUp then
  31.       sprite(spriteNum).locZ = spriteNum
  32.       motion.forget()
  33.       abort()
  34.     end if
  35.   end if
  36. end
  37.  
  38. on mouseUp me
  39.   if equal then
  40.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  41.     sprite(currentsel).member = member(sprite(spriteNum).member.name, "playing cards")
  42.     godlist.addCard(currentsel)
  43.     sprite(spriteNum).loc = location
  44.     waste.cards.deleteOne(waste.getlastcard())
  45.     if waste.getcardcount() > 0 then
  46.       sprite(spriteNum).member = member(waste.getlastcard().membername, "playing cards")
  47.     else
  48.       if waste.getcardcount() = 0 then
  49.         sprite(spriteNum).member = member("empty", "playing cards")
  50.         undercard.member = member("empty", "playing cards")
  51.       end if
  52.     end if
  53.     equal = 0
  54.     if objectp(foundation[sprite(currentsel).row]) then
  55.       points = points + 10
  56.     end if
  57.     if objectp(tableau[sprite(currentsel).row]) then
  58.       repeat with i = 87 to 90
  59.         if tableau[sprite(i).row].getcardcount() = 0 then
  60.           next repeat
  61.         end if
  62.         sprite(i).loc = tableau[sprite(i).row].getlastcard().location
  63.       end repeat
  64.     end if
  65.     currentsel = 0
  66.     godlist = VOID
  67.     getlist = VOID
  68.     checkwin()
  69.   else
  70.     if not equal then
  71.       puppetSound(3, member("drop card", "100GPak Generic SFX"))
  72.       getlist = VOID
  73.       sprite(spriteNum).loc = location
  74.     end if
  75.   end if
  76.   checkwin()
  77. end
  78.